
Partial Class Fitxers
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            'carregar els directoris
            Dim fitxers As New EsportsLn.Fitxers
            Dim s2 As String
            Dim s As String = Server.MapPath("App_Data")
            s2 = fitxers.FitxerBase
            Me.Label1.Text = Me.Label1.Text & s
            Label2.Text = fitxers.LleguirFitxer(s)
            Me.GridView1.DataSource = fitxers.LlistatFitxers(s)
            Me.GridView1.DataBind()
        End If
    End Sub

End Class
